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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
® 
® 
® 
:* THIS SOFTWARE ft FURNISHED uNoEe A_LICENSE AND MAY BE USED AND COPI * 
'* ONLY IN oe ANCE WITH THE rey OF SUCH ah Nits SE AND WITH T * 
't INCLUSION THE ABOVE Sp hd ld NOTICE. THIS SOFT ARE OR ANY OTH * 
'* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO A * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HERE ® 
tt TRANSFERRED. * 

* 
'® THE ote IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 
: ® 
:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 

* 

® 
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' 
! 
! Tests the LABIO system by allocating upto 16 channels 
! Enter the number of channels, rate, and buffer size 
Program TEST_LABIO 
include ‘LABCHNDEF.FOR' 
Parameter MBX re = 5 FEST .LABIO“® 
Character*130° RETU 
Character*15 conan 
Character*24 DATE_ TM 3 
Logical*4 Success? SYSSCREMBX 
Integer*4 TEST _CHAN, TEST_RATE, TEST_BUF _SIZE 
: Map To the Global Data Base and the event flags 
Call LABIO_INIT(O) 
Open Mailbox to LABIO_CONNECT 
; Open ( Unit = 1, Name = ‘LABIO_CONNECT' , Type = ‘OLD’ ) 
Create Mailbox for response from LABIO_CONNECT 


SUCCESS = SYSSCREMBX ( /MBX_ CHANNEL, , .2Val(*FDOO'x)  .MBX NAME) 
| If (.mot. SUCCESS ) CalT FATAL_ERROR( SUCCESS, CREATING. MAILBOX") 


i Open via FORTRAN 


= 
> 
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Open ( Unit = 2, Name = MBX_NAME, Type = ‘OLD’ ) 
Deassign the channel assigned when we created it 

Call SYSSDASSGN( %Val(MBX_CHANNEL) ) 
i Connect to the LABIO system | 


COMMAND = ‘CONNECT’ 
Write(1,100) COMMAND ,MBX_NAME 


Wait for Response from LABIO system 
: RETURN 


| 
| 
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| 
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! 
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Read(2,200) RETURN_CODE 
If( RETURN_CODE .ne. 0 5 Go To 99 ‘Failed to connect! 
Get parameters from operator 
10 LAST TEST .CHAN=TEST_CHAN 

Type 600,° Enter number of channe | 


te(in tics), and buffer size’ 
IZE 


ls, rat 
Accept O50 TEST scHAN. TEST RATE. TEst _BUF 
; If ( TEST_CHAN .@q. 0) CATL Exit(1)~ 


Deallocate Channels from Last time 
Do 20 AD_CHANNEL=1,LAST_TEST_CHAN 


Call SYSSCLREF (ZVal(EF_ACTIVITY_OFF+AD_CHANNEL)) !Stop Acq. 
Call SYSSSETEF (Val (EF_NOTIFY_OFF+AD_CRANNEL) ) 


COMMAND = ‘DEALLOCATE' 
Write(1,400) COMMAND,AD_CHANNEL 
Read(2,200) RETURN_CODE-RETURN 
If ( PRETURN CODE .ne. 05 
Type 500, ' Deallocation failure’, RETURN_CODE,RETURN 

20 Cont inue 


Allocate Channels 
; Do 30 AD_CHANNEL=1, TEST_CHAN 


COMMAND = ‘ALLOCATE’ 
Write(1,400) COMMAND “fee? TEST_RATE, TEST_BUF_SIZE,0 
Read(2 2 5200) RETURN_ CODETRETUR 
a. TUR CODE one. 0 
Type 1300. * Allocation failure’ ,RETURN_CODE ,RETURN | 


Enable data acqusition by setting event flag ACTIVITY and NOTIFY 


Call SYSSSETEF (Zval (EF _ACTIVITY OFF +AD_ CHANNEL) ) 
30 gett SYSSSETEF (Bval (EF NOTIFY_OFF +AD_CRANNEL) ) 
To 
' 


i Connect Failure 
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Type 308. * Connect failure’ ,RETURN_CODE RETURN 
Go To 1 


Format (A/‘ 
Format (A) 
Format (3110) 
End 
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